home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45a.d64 / listing 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  26 lines
  1. 10 REM * BEISPIEL 1 *
  2. 20 REM ERZEUGEN EIGENER ZEICHEN
  3. 31 POKE 56334,PEEK(56334) AND 254:POKE 1,PEEK(1) AND 251
  4. 35 FOR I=0 TO 63               :REM ZU KOPIERENDER ZEICHENBEREICH
  5. 36 FOR J=0 TO 7                :REM ALLE 8 BYTES PRO ZEICHEN
  6. 37 POKE 12288+I*8+J,PEEK(53248+I*8+J):REM EIN BYTE KOPIEREN
  7. 38 NEXT J:NEXT I               :REM NRNDCHSTES BYTE ODER ZEICHEN
  8. 39 POKE 1,PEEK(1) OR 4:POKE 56334,PEEK(56334) OR 1
  9. 40 POKE 53272,(PEEK(53272) AND 240) + 12:REM ZEICHEN AUS RAM HOLEN
  10. 60 FOR ZEIC=60 TO 63           :REM NEUE ZEICHEN 60 BIS 63
  11. 80 FOR BYTE=0 TO 7             :REM ALLE 8 BYTES PRO ZEICHEN
  12. 100 READ NUMBER                :REM EINLESEN 1/8 ZEICHEN
  13. 120 POKE 12288+(8*ZEIC)+BYTE,NUMBER:REM DATEN SPEICHERN
  14. 140 NEXT BYTE:NEXT ZEIC
  15. 150 PRINTCHR$(147)TAB(255)CHR$(60);
  16. 155 PRINTCHR$(61)TAB(55)CHR$(62)CHR$(63)
  17. 160 REM BRINGT DIE NEUDEFINIERTEN ZEICHEN AUF BILDSCHIRM
  18. 170 GET A$                     :REM ERWARTET TASTENDRUCK
  19. 180 IF A$="" THEN GOTO 170     :REM NEUER VERSUCH WENN KEINE TASTE
  20. 190 POKE 53272,21              :REM ZURUECK ZU NORMALEN ZEICHEN
  21. 200 DATA 4,6,7,5,7,7,3,3       :REM DATEN FUER ZEICHEN 60
  22. 210 DATA 32,96,224,160,224,224,192,192:REM ZEICHEN 61
  23. 220 DATA 7,7,7,31,31,95,143,127:REM ZEICHEN 62
  24. 230 DATA 224,224,224,248,248,248,240,224:REM ZEICHEN 63
  25. 240 END
  26.